CallByName-Funktion (Beispiel)

In diesem Beispiel wird die CallByName-Funktion verwendet, um die Move-Methode einer BefehlschaltflΣche aufzurufen.

Au▀erdem werden in diesem Beispiel ein Formular (Form1) mit einer SchaltflΣche (Command1) und ein Bezeichnungsfeld (Label1) verwendet. Beim Laden des Formulars wird die Caption-Eigenschaft des Bezeichnungsfelds auf "Move" gesetzt, den Namen der aufzurufenden Methode. Wenn Sie auf die SchaltflΣche klicken, ruft die CallByName-Funktion die Methode auf, um die Position der SchaltflΣche zu Σndern.

Option Explicit

Private Sub Form_Load()
    Label1.Caption = "Move"        ' Name der Move-Methode.
End Sub

Private Sub Command1_Click()
    If Command1.Left <> 0 Then
        CallByName Command1, Label1.Caption, vbMethod, 0, 0
    Else
        CallByName Command1, Label1.Caption, vbMethod, 500, 500
    End If